home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan / Opus 5 - Magellan.iso / Extras / DLGoodies / ports.dopus5 < prev    next >
Text File  |  1996-08-29  |  455b  |  55 lines
  1. /*
  2.  *  Show all system message port names in an DirectoryOpus requester
  3.  *  V1.0 (5.7.96) by David Lübbren.
  4.  *
  5.  *  Call: Arexx DOpus5:Arexx/ports.dopus5
  6.  */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. lf = '0a'x
  11.  
  12. PARSE ARG dopusport
  13. IF dopusport ~= "" THEN ADDRESS VALUE dopusport
  14. ELSE DO
  15.   SAY "No DOpus running!"
  16.   EXIT
  17. END
  18.  
  19. ports = SHOW('Ports',,lf)
  20. header = "Message Ports:" || lf || lf
  21. ports = header||ports
  22. dopus request '"' ports  '" Ok'
  23. EXIT
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.